home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 45
/
64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64
/
listing 10
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
441b
|
11 lines
10 printchr$(147) :rem bildschirm loeschen
20 poke 2040,13 :rem daten sprite 0 aus block 13
30 for i=0 to 62:poke 832+i,129:next:rem spritedaten eintragen
40 v=53248 :rem startadresse des videochip
50 poke v+21,1 :rem sprite 0 einschalten
60 poke v+39,1 :rem sprite 0 farbe geben
70 poke v+1,100 :rem sprite 0 y-position
80 for j=0 to 347 :rem x-positionen sprite 0
90 hx=int(j/256):lx=j-256*hx
100 poke v,lx:poke v+16,hx:next